home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Format CD 43
/
Amiga Format CD43 (1999)(Future Publishing)(GB)(Track 1 of 2)[!][issue 1999-09].iso
/
-serious-
/
graphics
/
fxforge
/
button deluxe
< prev
next >
Wrap
Text File
|
1999-06-15
|
1KB
|
26 lines
Category: Filter Factory Gallery B
Title: Button Deluxe...
Author: Mario Klingemann
Copyright: Copyright © 1996 Visual Manipulation
ctl[0]: Edge Width
ctl[1]: Top Shading
ctl[2]: Right Shading
ctl[3]: Bottom Shading
ctl[4]: Left Shading
ctl[5]:
ctl[6]:
ctl[7]: Distortion On/Off
val[0]: 211
val[1]: 120
val[2]: 118
val[3]: 123
val[4]: 122
val[5]: 0
val[6]: 0
val[7]: 127
R:put((d+511)/128,0),put(get(0)==0?ctl(4):ctl((get(0)-1)/2+1),0),put((abs(X/2-x)<val(0,0,min(X,Y)/2))&(abs(Y/2-y)<val(0,0,min(X,Y)/2)),1),put(ctl(7)>128?c:mix(rad(d,val(0,0,M),z),rad(d,M,z),m,M),2),get(1)==1?c:get(0)<128?((get(2)*2)*get(0))/255:((get(2)-128)*2)+get(0)-((get(2)-128)*2)*get(0)/255
G:put(ctl(7)>128?c:mix(rad(d,val(0,0,M),z),rad(d,M,z),m,M),2),get(1)==1?c:get(0)<128?((get(2)*2)*get(0))/255:((get(2)-128)*2)+get(0)-((get(2)-128)*2)*get(0)/255
B:put(ctl(7)>128?c:mix(rad(d,val(0,0,M),z),rad(d,M,z),m,M),2),get(1)==1?c:get(0)<128?((get(2)*2)*get(0))/255:((get(2)-128)*2)+get(0)-((get(2)-128)*2)*get(0)/255
A:put(ctl(7)>128?c:mix(rad(d,val(0,0,M),z),rad(d,M,z),m,M),2),get(1)==1?c:get(2)